;; Plugins Module
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; base for a simple plugin archtecture


;; Plugin Chains
;; Are simple lists of 

;; Call a plugin chain
;(define-macro (plugins:call chain . args)
;  `(for-each (lambda (plug) (plug ,@args)) ,chain))


;; Call a plugin chain
;(define-macro (plugins:add-to chain callback)
;   `(append! ,chain ,callback))

;Load Plugins from a directory
;(define (plugins:load-from-directory folder)
;   (print "load plugins from" folder)
   ;(for-each
   ;     (lambda (file)              
   ;           ;(print (string-append folder "/" file))
   ;           ;(print file)       
   ;     )
   ;     (kR:sys:list-folder-contents folder)
   ;                            
   ;)   
;)